Подсчитать количество гласных букв в заданном слове — Visual Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Main()
    Dim word As String = "Привет"
    Dim count As Integer = 0
    Dim vowels As String = "аеёиоуыэюяАЕЁИОУЫЭЮЯ"
 
    For Each ch As Char In word
        If vowels.Contains(ch) Then
            count += 1
        End If
    Next
 
    Console.WriteLine("Количество гласных букв: {0}", count)
End Sub

Похожие записи/страницы:

Leave a Comment